home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / color select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  140 lines
  1. 5 sd$=""
  2. 6 j=56320
  3. 10 rem color select
  4. 20 gosub 10000 : rem current setup
  5. 22 :
  6. 30 cp=bo:dd$="[194][207][210][196][197][210][146]":op=1
  7. 40 gosub 11000 : rem select new border
  8. 42 bo=cp
  9. 50 :
  10. 52 cp=bk:dd$="[194][193][195][203][199][210][207][213][206][196][146]":op=2
  11. 60 gosub 11000 : rem select new bk'grnd
  12. 62 bk=cp
  13. 70 :
  14. 72 cp=te:dd$="[212][197][216][212][146]":op=3
  15. 80 gosub 11000 : rem select new text
  16. 82 te=cp
  17. 84 ifbk=tethengosub30000:goto20
  18. 90 gosub 12000 : rem are these ok
  19. 92 ifnot(ok)then30
  20. 94 :
  21. 100 gosub 15000: rem current side
  22. 102 sb=si      : rem side booted
  23. 105 ns=2       : rem number of sides
  24. 110 cs=1
  25. 120 gosub13000 : rem write data to file
  26. 130 cs=cs+1    : rem on side cs
  27. 140 ifcs<=nsthen120
  28. 150 :
  29. 160 gosub14000 : rem put side sb in
  30. 10000 rem get current setup
  31. 10010 open15,8,15,"i0"
  32. 10020 open3,8,4,"setup"
  33. 10030 input#3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  34. 10040 bo=val(d$(1))
  35. 10042 bk=val(d$(2))
  36. 10044 te=val(d$(3))
  37. 10046 close3:close15
  38. 10050 return
  39. 10060 :
  40. 11000 rem  select new something...
  41. 11005 print"[147]"
  42. 11010 print"":poke646,te
  43. 11020 poke53280,bo:poke53281,bk
  44. 11030 aa$="[211]elect new "+dd$+" color":printspc(20-len(aa$)/2)aa$
  45. 11032 print"         by moving arrow with"
  46. 11040 print" joystick or cursor keys.  [212]o select a"
  47. 11050 print"   color, press [[211][208][193][195][197]] or [198][201][210][197][194][213][212][212][207][206]."
  48. 11060 print""spc(10)"[208]ress '_' to exit."
  49. 11070 :
  50. 11080 printsd$;
  51. 11090 forx=0to15:poke646,x:print" ";:next:print"[146]"
  52. 11095 poke646,te
  53. 11100 :
  54. 11110 printsd$""spc(cp)"^"
  55. 11120 :
  56. 11130 jy=peek(j):ifjy=127andpeek(198)=0then11130
  57. 11140 geta$
  58. 11150 ifjy=111ora$=chr$(32)then11240
  59. 11155 ifa$="_"thengosub20000:goto11005
  60. 11160 :
  61. 11170 ifjy=123ora$="[157]"ora$=""thenprintsd$""spc(cp)" ":cp=cp-1:goto11190
  62. 11180 ifjy=119ora$=""thenprintsd$""spc(cp)" ":cp=cp+1:goto11190
  63. 11185 goto11130
  64. 11190 ifcp<0thencp=15
  65. 11195 ifcp<0thencp=15
  66. 11200 ifcp>15thencp=0
  67. 11210 printsd$""spc(cp)"^"
  68. 11215 ifop=1thenbo=cp
  69. 11216 ifop=2thenbk=cp
  70. 11217 ifop=3thente=cp
  71. 11220 goto11010
  72. 11230 :
  73. 11240 return
  74. 11250 :
  75. 12000 rem these ok
  76. 12005 :
  77. 12010 print"[147] [193]re these settings what you want ([217]/[206])?"
  78. 12020 poke198,0:wait198,1:geta$
  79. 12025 ifa$<>"y"anda$<>"n"then12020
  80. 12030 ifa$="y"thenok=-1
  81. 12040 ifa$="n"thenok=0
  82. 12050 return
  83. 13000 rem  write data to disk
  84. 13010 print"[147][144]":poke53281,1:poke53280,4
  85. 13020 print"  [208]lease place side #"cs"of [204][207][193][196][211][212][193][210] in"
  86. 13025 print"     the drive and press [[211][208][193][195][197]]."
  87. 13030 poke198,0:wait198,1:geta$:ifa$<>" "then13030
  88. 13040 gosub15000: rem what side is it?
  89. 13050 ifsi=csthen13100
  90. 13060 print"   !!! [211]ide #"cs"not found... !!!"
  91. 13070 fordl=1to2000:next:goto13000
  92. 13080 :
  93. 13100 rem  ok, write data
  94. 13110 open15,8,15,"i0"
  95. 13120 d$(1)=mid$(str$(bo),2)
  96. 13122 d$(2)=mid$(str$(bk),2)
  97. 13124 d$(3)=mid$(str$(te),2)
  98. 13130 open3,8,4,"setup":cr$=chr$(13)
  99. 13140 print#15,"p"chr$(0)"";
  100. 13150 print#3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  101. 13160 close3:close15
  102. 13170 return
  103. 13180 :
  104. 13999 end
  105. 14000 rem  put side one back in
  106. 14010 print"[147][144]":poke53281,1:poke53280,4
  107. 14020 print"  [208]lease place side # 1 of [204][207][193][196][211][212][193][210] in"
  108. 14022 print" your drive and press [211][208][193][195][197] to return"
  109. 14024 print" to [204][207][193][196][211][212][193][210]."
  110. 14030 poke198,0:wait198,1:geta$:ifa$<>" "then14030
  111. 14040 gosub15000: rem what side is it?
  112. 14050 ifsi=1then14100
  113. 14060 print"   !!! [211]ide # 1 not found... !!!"
  114. 14070 fordl=1to2000:next:goto14000
  115. 14080 :
  116. 14100 goto60000 : rem connect back
  117. 14130 :
  118. 15000 rem read current side
  119. 15010 open15,8,15,"i0":close15
  120. 15020 open2,8,2,"$"
  121. 15030 fori=0to156:get#2,a$:next
  122. 15040 get#2,a$:si=val(a$):close2
  123. 15050 return
  124. 15060 :
  125. 20000 rem quit
  126. 20010 print"[147]  [193]re you sure you want to quit ([217]/[206])?"
  127. 20020 poke198,0:wait198,1:geta$
  128. 20025 ifa$<>"y"anda$<>"n"then20020
  129. 20030 ifa$="y"then60000 : rem quit
  130. 20040 ifa$="n"thenreturn
  131. 20050 :
  132. 30000 rem same background and text
  133. 30010 poke53281,1:print"[147][144]   [215]hy did you pick the same color for"
  134. 30020 print"    the [194][193][195][203][199][210][207][213][206][196] and the [212][197][216][212]???"
  135. 30030 print"          [212]ry picking again..."
  136. 30040 fordl=1to3200:next:return
  137. 60000 rem  return to customize menu
  138. 60010 print"[147]load"chr$(34)"custom ls boot"chr$(34)",8":print"run"
  139. 60020 poke631,13:poke632,13:poke198,2:end
  140.